home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
comm
/
ca29_3.zip
/
MCI.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-10-25
|
2KB
|
47 lines
S0 = 6 ; Dialing directory entry to use
LEGEND " MCI.CMD" ; Put script name on status bar...
;
; ----- MCI: Connect to MCI through SprintNet
; ----------------------------------------------------------------
; Note: You must edit the values above to reflect your call.
; Variable S0 determines the entry # being dialed
; ----------------------------------------------------------------
; Note: You must create a logon file with MKLOGON in order to
; have this script automatically log you on... Please see the
; file SCRIPTS.DOC
; ----------------------------------------------------------------
; Note: This script is written to be FCALLed, executed directly (F2)
; or attached to a dialing directory entry (for manual execution).
; ----------------------------------------------------------------
; Note: This script requires no other script. It *does* require
; a dialing directory entry be prepared (if NOT LINKed (i.e. Alt-D).
; ----------------------------------------------------------------
; S0 is modified by this script.
; ----------------------------------------------------------------
;
; Dial MCI direct
;
LEGEND " Dialing MCI direct..."
IF NOT LINKED ; If not from alt-d
DIAL S0 ; Dial directory entry number set above
IF FAILED EXIT ; IF esc out
ENDIF ; End test if linked
LEGEND " Connecting to MCI..."
PAUSE 3 ; Wait a bit
TRANSMIT "!" ; Send a c/r
;
; Send name and password
;
WAITFOR "name: " ; Wait for MCI name prompt
;
; If we have a MCILOGON file, use it
;
SET TTHRU OFF ; Let psw be typed
IF ISSCFILE "MCILOGON" FCALL "MCILOGON"
;
; Exit - this script may be fcalled
;
IF FCALLED FRETURN ; Return to caller if called
ALARM ; Otherwise, sound alarm - we're done